#!/usr/bin/env tclsh8.6

lappend auto_path [file dirname [info script]] ../Utilities/ ../extensions/
source safe.tcl

package require stx2html
Debug off STX 100
stx2html init script 0
set text [read stdin]

puts {<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <title></title>
    <link rel="stylesheet" type="text/css" href="stx.css" media="screen" title="screen">
    </head>
    <body>}
puts [stx2html::translate $text]
puts {
    </body>
    </html>
}
